home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / onlineb.scpt < prev    next >
Text File  |  1997-02-02  |  891b  |  54 lines
  1. If exists Pagemonster:MiamiPath
  2. copy Pagemonster:MiamiPath TO env:
  3. endif
  4.  
  5. If exists Pagemonster:TermiteTCPPath
  6. copy Pagemonster:TermiteTCPPath TO env:
  7. endif
  8.  
  9. If exists Pagemonster:AmiTCPPath
  10. copy Pagemonster:AmiTCPPath TO env:
  11. endif
  12.  
  13. If exists Pagemonster:Browser
  14. copy Pagemonster:Browser TO env:
  15. endif
  16.  
  17. REQUESTCHOICE >ENV:RECNUM "SELECT A TCP STACK" "Connect to Support Page?" "TermiteTCP" "Miami" "AmiTCP" "NO!"
  18.  
  19. IF $RECNUM EQ "3"
  20. execute $AmiTCPPath
  21. Endif
  22.  
  23. IF $RECNUM EQ "2"
  24. run $MiamiPath
  25. Endif  
  26.  
  27. IF $RECNUM EQ "1"
  28. run $TermiteTCPPath
  29. Endif
  30.   
  31.  
  32. IF $RECNUM EQ "0"
  33. echo ""
  34. echo "    OPERATION CANCELED " 
  35. echo ""
  36. Endif
  37.  
  38. REQUESTCHOICE >ENV:RECNUM "Waiting...." "Load $Browser?" "OK" "CANCEL" 
  39.  
  40. IF $RECNUM EQ "0"
  41. echo ""
  42. echo "    Returning to Pagemonster " 
  43. echo ""
  44. Endif
  45.  
  46. IF $RECNUM EQ "1"
  47. $Browser http://www.serv.net/~cshock/support.html
  48. Endif
  49.  
  50.  
  51.  
  52.  
  53. echo "    Returning to Pagemonster " 
  54.